(mail-sent-via): Use copy-marker not make-marker.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f677af3e34ac6a6a1cfb975c48025ed6b810bd9c..b75540ce7ed552f69e425cae8f0930bce092a283 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1058,7 +1058,7 @@ See also the function `select-sendmail-coding-system'.")
   (interactive)
   (save-excursion
     ;; put a marker at the end of the header
-    (let ((end (make-marker (mail-header-end)))
+    (let ((end (copy-marker (mail-header-end)))
          (case-fold-search t)
          to-line)
       (goto-char (point-min))